
SimpleEventDef = procedure (Sender: TObject) of object;

ComplexEventDef = procedure (Sender: TObject;MyParam : double) of object;

